home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G35F / G34_URAN.Dxr / 00005.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  343 b   |  12 lines
  1. global work_d, work_v, work_l, work_s, work_a, work_m, work_bad, seizano, spno2
  2.  
  3. on keisan
  4.   set work_d to the date
  5.   set work_l to length(work_d)
  6.   set work_v to chars(work_d, work_l, work_l)
  7.   set work_s to value(work_v)
  8.   set work_a to work_s + spno2 + seizano
  9.   set work_m to work_a mod (seizano + 1)
  10.   set work_bad to random(seizano)
  11. end
  12.